home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C++ / Applications / Nuntius 1.2 / src / Nuntius / make_segmap < prev    next >
Encoding:
Text File  |  1994-02-20  |  521 b   |  28 lines  |  [TEXT/MPS ]
  1. set f Nuntius.MAMake
  2.  
  3.  
  4. set exit 1
  5. target {f}
  6.  
  7. find • {f}
  8. clear /•∂#MakeAutoSegMap≈∂n/Δ:Δ/•∂#MakeAutoSegMap/ {f}
  9.  
  10. begin
  11.     echo 'SegmentMappings = ∂'
  12.     see '/•SegmentMappings/,∞ pr' < "{MATools}Basic Definitions" | ∂
  13.     StreamEdit -d ∂
  14.             # as is ∂
  15.             -e '/=MAMain / pr;next' ∂
  16.             -e '/=GInit / pr;next' ∂
  17.             # into Main ∂
  18.             -e '/•(≈=)®1GDebugger( ≈)®3/ pr ®1"Main"®3;next' ∂
  19.             # into Main ∂
  20.             # rest merged into one ∂
  21.             -e '/•(≈sn ≈=)®1≈( ≈)®3/ pr ®1"MacApp&Nuntius"®3'
  22. end > {f}.§
  23.  
  24.  
  25. close -y {f}
  26. exit
  27.     sort -fs = -f 2 | 
  28.